home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-10-28 | 5.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 30 36 3a 30 32 20 31 |an 14 06|:06:02 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 6c 73 65 6c 65 63 |19.0/lis|p/lselec|
|00000070| 74 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |t.el.;;;| emacs v|
|00000080| 65 72 73 69 6f 6e 20 31 | 39 2e 33 30 2e 37 30 2e |ersion 1|9.30.70.|
|00000090| 36 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |6..;;; b|ytecomp |
|000000a0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000b0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000c0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000d0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000e0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|000000f0| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000100| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000110| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000120| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000130| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000140| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|).. |
|00000160| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 2e |acs-vers|ion "19.|
|00000180| 32 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |29"))). | (erro|
|00000190| 72 20 22 60 6c 73 65 6c | 65 63 74 2e 65 6c 27 20 |r "`lsel|ect.el' |
|000001a0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001b0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001c0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 28 62 79 74 65 |later"))|...(byte|
|000001d0| 2d 63 6f 64 65 20 22 c0 | c1 c2 5c 22 88 c0 c3 c4 |-code ".|..\"....|
|000001e0| 5c 22 88 c5 c6 21 84 14 | 00 c7 c6 21 88 c5 c8 21 |\"...!..|...!...!|
|000001f0| 84 1e 00 c7 c8 21 88 c0 | 87 22 20 5b 64 65 66 61 |.....!..|." [defa|
|00000200| 6c 69 61 73 20 78 2d 67 | 65 74 2d 63 75 74 62 75 |lias x-g|et-cutbu|
|00000210| 66 66 65 72 20 78 2d 67 | 65 74 2d 63 75 74 2d 62 |ffer x-g|et-cut-b|
|00000220| 75 66 66 65 72 20 78 2d | 73 74 6f 72 65 2d 63 75 |uffer x-|store-cu|
|00000230| 74 62 75 66 66 65 72 20 | 78 2d 73 65 74 2d 63 75 |tbuffer |x-set-cu|
|00000240| 74 2d 62 75 66 66 65 72 | 20 66 69 6e 64 2d 66 61 |t-buffer| find-fa|
|00000250| 63 65 20 70 72 69 6d 61 | 72 79 2d 73 65 6c 65 63 |ce prima|ry-selec|
|00000260| 74 69 6f 6e 20 6d 61 6b | 65 2d 66 61 63 65 20 73 |tion mak|e-face s|
|00000270| 65 63 6f 6e 64 61 72 79 | 2d 73 65 6c 65 63 74 69 |econdary|-selecti|
|00000280| 6f 6e 5d 20 33 29 0a 23 | 40 34 32 20 52 65 74 75 |on] 3).#|@42 Retu|
|00000290| 72 6e 20 74 65 78 74 20 | 73 65 6c 65 63 74 65 64 |rn text |selected|
|000002a0| 20 66 72 6f 6d 20 73 6f | 6d 65 20 58 20 77 69 6e | from so|me X win|
|000002b0| 64 6f 77 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |dow...(d|efalias |
|000002c0| 27 78 2d 67 65 74 2d 73 | 65 63 6f 6e 64 61 72 79 |'x-get-s|econdary|
|000002d0| 2d 73 65 6c 65 63 74 69 | 6f 6e 20 23 5b 6e 69 6c |-selecti|on #[nil|
|000002e0| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 78 2d 67 65 74 | "...\".|" [x-get|
|000002f0| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 69 6e 74 65 72 |-selecti|on-inter|
|00000300| 6e 61 6c 20 53 45 43 4f | 4e 44 41 52 59 20 53 54 |nal SECO|NDARY ST|
|00000310| 52 49 4e 47 5d 20 33 20 | 28 23 24 20 2e 20 36 35 |RING] 3 |(#$ . 65|
|00000320| 32 29 5d 29 0a 23 40 35 | 34 20 54 68 65 20 65 78 |2)]).#@5|4 The ex|
|00000330| 74 65 6e 74 20 6f 66 20 | 74 68 65 20 70 72 69 6d |tent of |the prim|
|00000340| 61 72 79 20 73 65 6c 65 | 63 74 69 6f 6e 3b 20 64 |ary sele|ction; d|
|00000350| 6f 6e 27 74 20 75 73 65 | 20 74 68 69 73 2e 1f 0a |on't use| this...|
|00000360| 28 64 65 66 76 61 72 20 | 70 72 69 6d 61 72 79 2d |(defvar |primary-|
|00000370| 73 65 6c 65 63 74 69 6f | 6e 2d 65 78 74 65 6e 74 |selectio|n-extent|
|00000380| 20 6e 69 6c 20 28 23 24 | 20 2e 20 38 31 30 29 29 | nil (#$| . 810))|
|00000390| 0a 23 40 35 36 20 54 68 | 65 20 65 78 74 65 6e 74 |.#@56 Th|e extent|
|000003a0| 20 6f 66 20 74 68 65 20 | 73 65 63 6f 6e 64 61 72 | of the |secondar|
|000003b0| 79 20 73 65 6c 65 63 74 | 69 6f 6e 3b 20 64 6f 6e |y select|ion; don|
|000003c0| 27 74 20 75 73 65 20 74 | 68 69 73 2e 1f 0a 28 64 |'t use t|his...(d|
|000003d0| 65 66 76 61 72 20 73 65 | 63 6f 6e 64 61 72 79 2d |efvar se|condary-|
|000003e0| 73 65 6c 65 63 74 69 6f | 6e 2d 65 78 74 65 6e 74 |selectio|n-extent|
|000003f0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 39 31 38 29 29 | nil (#$| . 918))|
|00000400| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 2d 73 65 |.(defali|as 'x-se|
|00000410| 6c 65 63 74 2d 6d 61 6b | 65 2d 65 78 74 65 6e 74 |lect-mak|e-extent|
|00000420| 2d 66 6f 72 2d 73 65 6c | 65 63 74 69 6f 6e 20 23 |-for-sel|ection #|
|00000430| 5b 28 73 65 6c 65 63 74 | 69 6f 6e 20 70 72 65 76 |[(select|ion prev|
|00000440| 69 6f 75 73 2d 65 78 74 | 65 6e 74 20 66 61 63 65 |ious-ext|ent face|
|00000450| 29 20 22 c0 c1 5c 6e 21 | 85 12 00 c3 5c 6e 21 85 |) "..\n!|....\n!.|
|00000460| 12 00 c4 c3 5c 6e 21 21 | c0 89 1d 1e 06 1e 07 1e |....\n!!|........|
|00000470| 08 0e 09 3b 83 27 00 c0 | 16 07 82 7f 00 0e 09 3a |...;.'..|.......:|
|00000480| 83 58 00 0e 09 40 0e 09 | 41 5e 16 06 0e 09 40 0e |.X...@..|A^....@.|
|00000490| 09 41 5d 15 0e 07 85 4c | 00 ca 0e 09 40 21 c3 5c |.A]....L|....@!.\|
|000004a0| 6e 21 3d 16 07 ca 0e 09 | 40 21 16 08 82 7f 00 c1 |n!=.....|@!......|
|000004b0| 0e 09 21 83 7f 00 cb 0e | 09 21 16 06 cc 0e 09 21 |..!.....|.!.....!|
|000004c0| 15 0e 07 85 77 00 c3 0e | 09 21 c3 5c 6e 21 3d 16 |....w...|.!.\n!=.|
|000004d0| 07 c3 0e 09 21 16 08 0e | 07 84 9c 00 c1 5c 6e 21 |....!...|.....\n!|
|000004e0| 83 9c 00 c3 5c 6e 21 83 | 9c 00 c4 c3 5c 6e 21 21 |....\n!.|....\n!!|
|000004f0| 83 9c 00 cd 5c 6e 21 88 | 0e 08 85 c2 00 0e 07 83 |....\n!.|........|
|00000500| af 00 ce 5c 6e 0e 06 0d | 23 82 c2 00 cf 0e 06 0d |...\n...|#.......|
|00000510| 0e 08 23 12 d0 5c 6e 0e | 11 5c 22 88 d2 5c 6e 0e |..#..\n.|.\"..\n.|
|00000520| 13 5c 22 2c 87 22 20 5b | 6e 69 6c 20 65 78 74 65 |.\",." [|nil exte|
|00000530| 6e 74 70 20 70 72 65 76 | 69 6f 75 73 2d 65 78 74 |ntp prev|ious-ext|
|00000540| 65 6e 74 20 65 78 74 65 | 6e 74 2d 62 75 66 66 65 |ent exte|nt-buffe|
|00000550| 72 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 65 6e |r buffer|-name en|
|00000560| 64 20 73 74 61 72 74 20 | 76 61 6c 69 64 20 62 75 |d start |valid bu|
|00000570| 66 66 65 72 20 73 65 6c | 65 63 74 69 6f 6e 20 6d |ffer sel|ection m|
|00000580| 61 72 6b 65 72 2d 62 75 | 66 66 65 72 20 65 78 74 |arker-bu|ffer ext|
|00000590| 65 6e 74 2d 73 74 61 72 | 74 2d 70 6f 73 69 74 69 |ent-star|t-positi|
|000005a0| 6f 6e 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 70 6f |on exten|t-end-po|
|000005b0| 73 69 74 69 6f 6e 20 64 | 65 6c 65 74 65 2d 65 78 |sition d|elete-ex|
|000005c0| 74 65 6e 74 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |tent set|-extent-|
|000005d0| 65 6e 64 70 6f 69 6e 74 | 73 20 6d 61 6b 65 2d 65 |endpoint|s make-e|
|000005e0| 78 74 65 6e 74 20 73 65 | 74 2d 65 78 74 65 6e 74 |xtent se|t-extent|
|000005f0| 2d 70 72 69 6f 72 69 74 | 79 20 6d 6f 75 73 65 2d |-priorit|y mouse-|
|00000600| 68 69 67 68 6c 69 67 68 | 74 2d 70 72 69 6f 72 69 |highligh|t-priori|
|00000610| 74 79 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 66 61 |ty set-e|xtent-fa|
|00000620| 63 65 20 66 61 63 65 5d | 20 34 5d 29 0a 23 40 32 |ce face]| 4]).#@2|
|00000630| 34 31 20 4d 61 6b 65 20 | 61 20 70 72 69 6d 61 72 |41 Make |a primar|
|00000640| 79 20 58 20 53 65 6c 65 | 63 74 69 6f 6e 20 6f 66 |y X Sele|ction of|
|00000650| 20 74 68 65 20 67 69 76 | 65 6e 20 61 72 67 75 6d | the giv|en argum|
|00000660| 65 6e 74 2e 20 20 0a 54 | 68 65 20 61 72 67 75 6d |ent. .T|he argum|
|00000670| 65 6e 74 20 6d 61 79 20 | 62 65 20 61 20 73 74 72 |ent may |be a str|
|00000680| 69 6e 67 2c 20 61 20 63 | 6f 6e 73 20 6f 66 20 74 |ing, a c|ons of t|
|00000690| 77 6f 20 6d 61 72 6b 65 | 72 73 2c 20 6f 72 20 61 |wo marke|rs, or a|
|000006a0| 6e 20 65 78 74 65 6e 74 | 2e 20 20 0a 49 6e 20 74 |n extent|. .In t|
|000006b0| 68 65 20 6c 61 74 74 65 | 72 20 63 61 73 65 73 20 |he latte|r cases |
|000006c0| 74 68 65 20 73 65 6c 65 | 63 74 69 6f 6e 20 69 73 |the sele|ction is|
|000006d0| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 74 6f 20 62 | conside|red to b|
|000006e0| 65 20 74 68 65 20 74 65 | 78 74 20 0a 62 65 74 77 |e the te|xt .betw|
|000006f0| 65 65 6e 20 74 68 65 20 | 6d 61 72 6b 65 72 73 2c |een the |markers,|
|00000700| 20 6f 72 20 74 68 65 20 | 62 65 74 77 65 65 6e 20 | or the |between |
|00000710| 65 78 74 65 6e 74 73 20 | 65 6e 64 70 6f 69 6e 74 |extents |endpoint|
|00000720| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |s...(def|alias 'x|
|00000730| 2d 6f 77 6e 2d 73 65 6c | 65 63 74 69 6f 6e 20 23 |-own-sel|ection #|
|00000740| 5b 28 73 65 6c 65 63 74 | 69 6f 6e 20 26 6f 70 74 |[(select|ion &opt|
|00000750| 69 6f 6e 61 6c 20 74 79 | 70 65 29 20 22 08 84 06 |ional ty|pe) "...|
|00000760| 00 c1 10 c2 0b 08 5c 22 | 88 08 c1 3d 83 1a 00 c4 |......\"|...=....|
|00000770| 0b 0d c6 23 15 82 28 00 | 08 c7 3d 83 28 00 c4 0b |...#..(.|..=.(...|
|00000780| 0e 08 c9 23 16 08 0b 87 | 22 20 5b 74 79 70 65 20 |...#....|" [type |
|00000790| 50 52 49 4d 41 52 59 20 | 78 2d 73 65 74 2d 73 65 |PRIMARY |x-set-se|
|000007a0| 6c 65 63 74 69 6f 6e 20 | 73 65 6c 65 63 74 69 6f |lection |selectio|
|000007b0| 6e 20 78 2d 73 65 6c 65 | 63 74 2d 6d 61 6b 65 2d |n x-sele|ct-make-|
|000007c0| 65 78 74 65 6e 74 2d 66 | 6f 72 2d 73 65 6c 65 63 |extent-f|or-selec|
|000007d0| 74 69 6f 6e 20 70 72 69 | 6d 61 72 79 2d 73 65 6c |tion pri|mary-sel|
|000007e0| 65 63 74 69 6f 6e 2d 65 | 78 74 65 6e 74 20 70 72 |ection-e|xtent pr|
|000007f0| 69 6d 61 72 79 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |imary-se|lection |
|00000800| 53 45 43 4f 4e 44 41 52 | 59 20 73 65 63 6f 6e 64 |SECONDAR|Y second|
|00000810| 61 72 79 2d 73 65 6c 65 | 63 74 69 6f 6e 2d 65 78 |ary-sele|ction-ex|
|00000820| 74 65 6e 74 20 73 65 63 | 6f 6e 64 61 72 79 2d 73 |tent sec|ondary-s|
|00000830| 65 6c 65 63 74 69 6f 6e | 5d 20 34 20 28 23 24 20 |election|] 4 (#$ |
|00000840| 2e 20 31 35 38 37 29 20 | 28 62 79 74 65 2d 63 6f |. 1587) |(byte-co|
|00000850| 64 65 20 22 08 84 09 00 | c1 c2 21 43 87 c3 c4 20 |de "....|..!C... |
|00000860| 21 c3 c5 20 21 42 43 87 | 22 20 5b 63 75 72 72 65 |!.. !BC.|" [curre|
|00000870| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 20 72 65 |nt-prefi|x-arg re|
|00000880| 61 64 2d 73 74 72 69 6e | 67 20 22 53 74 6f 72 65 |ad-strin|g "Store|
|00000890| 20 74 65 78 74 20 66 6f | 72 20 70 61 73 74 69 6e | text fo|r pastin|
|000008a0| 67 3a 20 22 20 63 6f 70 | 79 2d 6d 61 72 6b 65 72 |g: " cop|y-marker|
|000008b0| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 6d 61 | point-m|arker ma|
|000008c0| 72 6b 2d 6d 61 72 6b 65 | 72 5d 20 33 29 5d 29 0a |rk-marke|r] 3)]).|
|000008d0| 23 40 31 39 31 20 4d 61 | 6b 65 20 61 20 73 65 63 |#@191 Ma|ke a sec|
|000008e0| 6f 6e 64 61 72 79 20 58 | 20 53 65 6c 65 63 74 69 |ondary X| Selecti|
|000008f0| 6f 6e 20 6f 66 20 74 68 | 65 20 67 69 76 65 6e 20 |on of th|e given |
|00000900| 61 72 67 75 6d 65 6e 74 | 2e 20 20 54 68 65 20 61 |argument|. The a|
|00000910| 72 67 75 6d 65 6e 74 20 | 6d 61 79 20 62 65 20 61 |rgument |may be a|
|00000920| 20 0a 73 74 72 69 6e 67 | 20 6f 72 20 61 20 63 6f | .string| or a co|
|00000930| 6e 73 20 6f 66 20 74 77 | 6f 20 6d 61 72 6b 65 72 |ns of tw|o marker|
|00000940| 73 20 28 69 6e 20 77 68 | 69 63 68 20 63 61 73 65 |s (in wh|ich case|
|00000950| 20 74 68 65 20 73 65 6c | 65 63 74 69 6f 6e 20 69 | the sel|ection i|
|00000960| 73 20 63 6f 6e 73 69 64 | 65 72 65 64 20 74 6f 0a |s consid|ered to.|
|00000970| 62 65 20 74 68 65 20 74 | 65 78 74 20 62 65 74 77 |be the t|ext betw|
|00000980| 65 65 6e 20 74 68 6f 73 | 65 20 6d 61 72 6b 65 72 |een thos|e marker|
|00000990| 73 2e 29 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |s.)..(de|falias '|
|000009a0| 78 2d 6f 77 6e 2d 73 65 | 63 6f 6e 64 61 72 79 2d |x-own-se|condary-|
|000009b0| 73 65 6c 65 63 74 69 6f | 6e 20 23 5b 28 73 65 6c |selectio|n #[(sel|
|000009c0| 65 63 74 69 6f 6e 20 26 | 6f 70 74 69 6f 6e 61 6c |ection &|optional|
|000009d0| 20 74 79 70 65 29 20 22 | c0 09 c2 5c 22 87 22 20 | type) "|...\"." |
|000009e0| 5b 78 2d 6f 77 6e 2d 73 | 65 6c 65 63 74 69 6f 6e |[x-own-s|election|
|000009f0| 20 73 65 6c 65 63 74 69 | 6f 6e 20 53 45 43 4f 4e | selecti|on SECON|
|00000a00| 44 41 52 59 5d 20 33 20 | 28 23 24 20 2e 20 32 32 |DARY] 3 |(#$ . 22|
|00000a10| 36 32 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |62) (byt|e-code "|
|00000a20| 08 84 09 00 c1 c2 21 43 | 87 c3 c4 20 21 c3 c5 20 |......!C|... !.. |
|00000a30| 21 42 43 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 70 |!BC." [c|urrent-p|
|00000a40| 72 65 66 69 78 2d 61 72 | 67 20 72 65 61 64 2d 73 |refix-ar|g read-s|
|00000a50| 74 72 69 6e 67 20 22 53 | 74 6f 72 65 20 74 65 78 |tring "S|tore tex|
|00000a60| 74 20 66 6f 72 20 70 61 | 73 74 69 6e 67 3a 20 22 |t for pa|sting: "|
|00000a70| 20 63 6f 70 79 2d 6d 61 | 72 6b 65 72 20 70 6f 69 | copy-ma|rker poi|
|00000a80| 6e 74 2d 6d 61 72 6b 65 | 72 20 6d 61 72 6b 2d 6d |nt-marke|r mark-m|
|00000a90| 61 72 6b 65 72 5d 20 33 | 29 5d 29 0a 23 40 34 34 |arker] 3|)]).#@44|
|00000aa0| 20 50 61 73 74 65 20 74 | 68 65 20 67 69 76 65 6e | Paste t|he given|
|00000ab0| 20 73 74 72 69 6e 67 20 | 74 6f 20 74 68 65 20 58 | string |to the X|
|00000ac0| 20 43 6c 69 70 62 6f 61 | 72 64 2e 1f 0a 28 64 65 | Clipboa|rd...(de|
|00000ad0| 66 61 6c 69 61 73 20 27 | 78 2d 6f 77 6e 2d 63 6c |falias '|x-own-cl|
|00000ae0| 69 70 62 6f 61 72 64 20 | 23 5b 28 73 74 72 69 6e |ipboard |#[(strin|
|00000af0| 67 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 78 2d 6f |g) "...\|"." [x-o|
|00000b00| 77 6e 2d 73 65 6c 65 63 | 74 69 6f 6e 20 73 74 72 |wn-selec|tion str|
|00000b10| 69 6e 67 20 43 4c 49 50 | 42 4f 41 52 44 5d 20 33 |ing CLIP|BOARD] 3|
|00000b20| 20 28 23 24 20 2e 20 32 | 37 32 31 29 5d 29 0a 23 | (#$ . 2|721)]).#|
|00000b30| 40 31 32 38 20 41 73 73 | 75 6d 69 6e 67 20 77 65 |@128 Ass|uming we|
|00000b40| 20 6f 77 6e 20 74 68 65 | 20 73 65 6c 65 63 74 69 | own the| selecti|
|00000b50| 6f 6e 2c 20 64 69 73 6f | 77 6e 20 69 74 2e 20 20 |on, diso|wn it. |
|00000b60| 57 69 74 68 20 61 6e 20 | 61 72 67 75 6d 65 6e 74 |With an |argument|
|00000b70| 2c 20 64 69 73 63 61 72 | 64 20 74 68 65 0a 73 65 |, discar|d the.se|
|00000b80| 63 6f 6e 64 61 72 79 20 | 73 65 6c 65 63 74 69 6f |condary |selectio|
|00000b90| 6e 20 69 6e 73 74 65 61 | 64 20 6f 66 20 74 68 65 |n instea|d of the|
|00000ba0| 20 70 72 69 6d 61 72 79 | 20 73 65 6c 65 63 74 69 | primary| selecti|
|00000bb0| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|00000bc0| 78 2d 64 69 73 6f 77 6e | 2d 73 65 6c 65 63 74 69 |x-disown|-selecti|
|00000bd0| 6f 6e 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |on #[(&o|ptional |
|00000be0| 73 65 63 6f 6e 64 61 72 | 79 2d 70 29 20 22 c0 09 |secondar|y-p) "..|
|00000bf0| 83 09 00 c2 82 5c 6e 00 | c3 21 87 22 20 5b 78 2d |.....\n.|.!." [x-|
|00000c00| 64 69 73 6f 77 6e 2d 73 | 65 6c 65 63 74 69 6f 6e |disown-s|election|
|00000c10| 2d 69 6e 74 65 72 6e 61 | 6c 20 73 65 63 6f 6e 64 |-interna|l second|
|00000c20| 61 72 79 2d 70 20 53 45 | 43 4f 4e 44 41 52 59 20 |ary-p SE|CONDARY |
|00000c30| 50 52 49 4d 41 52 59 5d | 20 32 20 28 23 24 20 2e |PRIMARY]| 2 (#$ .|
|00000c40| 20 32 38 36 39 29 5d 29 | 0a 23 40 34 37 20 66 6f | 2869)])|.#@47 fo|
|00000c50| 72 20 75 73 65 20 61 73 | 20 61 20 76 61 6c 75 65 |r use as| a value|
|00000c60| 20 6f 66 20 78 2d 6c 6f | 73 74 2d 73 65 6c 65 63 | of x-lo|st-selec|
|00000c70| 74 69 6f 6e 2d 68 6f 6f | 6b 73 2e 1f 0a 28 64 65 |tion-hoo|ks...(de|
|00000c80| 66 61 6c 69 61 73 20 27 | 78 2d 64 65 68 69 6c 69 |falias '|x-dehili|
|00000c90| 67 68 74 2d 73 65 6c 65 | 63 74 69 6f 6e 20 23 5b |ght-sele|ction #[|
|00000ca0| 28 73 65 6c 65 63 74 69 | 6f 6e 29 20 22 08 c1 3d |(selecti|on) "..=|
|00000cb0| 83 1e 00 5c 6e 83 13 00 | c3 1c c5 5c 6e 21 88 c6 |...\n...|...\n!..|
|00000cc0| 12 29 0e 07 83 34 00 c8 | 20 88 82 34 00 08 c9 3d |.)...4..| ..4...=|
|00000cd0| 83 34 00 0e 5c 6e 83 34 | 00 c3 1c c5 0e 5c 6e 21 |.4..\n.4|.....\n!|
|00000ce0| 88 c6 16 5c 6e 29 c6 87 | 22 20 5b 73 65 6c 65 63 |...\n)..|" [selec|
|00000cf0| 74 69 6f 6e 20 50 52 49 | 4d 41 52 59 20 70 72 69 |tion PRI|MARY pri|
|00000d00| 6d 61 72 79 2d 73 65 6c | 65 63 74 69 6f 6e 2d 65 |mary-sel|ection-e|
|00000d10| 78 74 65 6e 74 20 74 20 | 69 6e 68 69 62 69 74 2d |xtent t |inhibit-|
|00000d20| 71 75 69 74 20 64 65 6c | 65 74 65 2d 65 78 74 65 |quit del|ete-exte|
|00000d30| 6e 74 20 6e 69 6c 20 7a | 6d 61 63 73 2d 72 65 67 |nt nil z|macs-reg|
|00000d40| 69 6f 6e 73 20 7a 6d 61 | 63 73 2d 64 65 61 63 74 |ions zma|cs-deact|
|00000d50| 69 76 61 74 65 2d 72 65 | 67 69 6f 6e 20 53 45 43 |ivate-re|gion SEC|
|00000d60| 4f 4e 44 41 52 59 20 73 | 65 63 6f 6e 64 61 72 79 |ONDARY s|econdary|
|00000d70| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 65 78 74 65 6e |-selecti|on-exten|
|00000d80| 74 5d 20 32 20 28 23 24 | 20 2e 20 33 31 35 30 29 |t] 2 (#$| . 3150)|
|00000d90| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00000da0| 11 c0 87 22 20 5b 78 2d | 64 65 68 69 6c 69 67 68 |..." [x-|dehiligh|
|00000db0| 74 2d 73 65 6c 65 63 74 | 69 6f 6e 20 78 2d 6c 6f |t-select|ion x-lo|
|00000dc0| 73 74 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 68 6f 6f |st-selec|tion-hoo|
|00000dd0| 6b 73 5d 20 31 29 0a 23 | 40 35 38 20 66 6f 72 20 |ks] 1).#|@58 for |
|00000de0| 70 6f 73 73 69 62 6c 65 | 20 75 73 65 20 61 73 20 |possible| use as |
|00000df0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 78 2d 73 |the valu|e of x-s|
|00000e00| 65 6e 74 2d 73 65 6c 65 | 63 74 69 6f 6e 2d 68 6f |ent-sele|ction-ho|
|00000e10| 6f 6b 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |oks...(d|efalias |
|00000e20| 27 78 2d 6e 6f 74 69 63 | 65 2d 73 65 6c 65 63 74 |'x-notic|e-select|
|00000e30| 69 6f 6e 2d 72 65 71 75 | 65 73 74 73 20 23 5b 28 |ion-requ|ests #[(|
|00000e40| 73 65 6c 65 63 74 69 6f | 6e 20 74 79 70 65 20 73 |selectio|n type s|
|00000e50| 75 63 63 65 73 73 66 75 | 6c 29 20 22 08 84 5c 6e |uccessfu|l) "..\n|
|00000e60| 00 c1 c2 0b 5c 66 23 87 | c1 c5 0b 5c 66 23 87 22 |....\f#.|...\f#."|
|00000e70| 20 5b 73 75 63 63 65 73 | 73 66 75 6c 20 6d 65 73 | [succes|sful mes|
|00000e80| 73 61 67 65 20 22 53 65 | 6c 65 63 74 69 6f 6e 20 |sage "Se|lection |
|00000e90| 72 65 71 75 65 73 74 20 | 66 61 69 6c 65 64 20 74 |request |failed t|
|00000ea0| 6f 20 63 6f 6e 76 65 72 | 74 20 25 73 20 74 6f 20 |o conver|t %s to |
|00000eb0| 25 73 22 20 73 65 6c 65 | 63 74 69 6f 6e 20 74 79 |%s" sele|ction ty|
|00000ec0| 70 65 20 22 53 65 6e 74 | 20 73 65 6c 65 63 74 69 |pe "Sent| selecti|
|00000ed0| 6f 6e 20 25 73 20 61 73 | 20 25 73 22 5d 20 34 20 |on %s as| %s"] 4 |
|00000ee0| 28 23 24 20 2e 20 33 35 | 34 38 29 5d 29 0a 23 40 |(#$ . 35|48)]).#@|
|00000ef0| 35 38 20 66 6f 72 20 70 | 6f 73 73 69 62 6c 65 20 |58 for p|ossible |
|00000f00| 75 73 65 20 61 73 20 74 | 68 65 20 76 61 6c 75 65 |use as t|he value|
|00000f10| 20 6f 66 20 78 2d 73 65 | 6e 74 2d 73 65 6c 65 63 | of x-se|nt-selec|
|00000f20| 74 69 6f 6e 2d 68 6f 6f | 6b 73 2e 1f 0a 28 64 65 |tion-hoo|ks...(de|
|00000f30| 66 61 6c 69 61 73 20 27 | 78 2d 6e 6f 74 69 63 65 |falias '|x-notice|
|00000f40| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 66 61 69 6c 75 |-selecti|on-failu|
|00000f50| 72 65 73 20 23 5b 28 73 | 65 6c 65 63 74 69 6f 6e |res #[(s|election|
|00000f60| 20 74 79 70 65 20 73 75 | 63 63 65 73 73 66 75 6c | type su|ccessful|
|00000f70| 29 20 22 08 86 09 00 c1 | c2 0b 5c 66 23 87 22 20 |) ".....|..\f#." |
|00000f80| 5b 73 75 63 63 65 73 73 | 66 75 6c 20 6d 65 73 73 |[success|ful mess|
|00000f90| 61 67 65 20 22 53 65 6c | 65 63 74 69 6f 6e 20 72 |age "Sel|ection r|
|00000fa0| 65 71 75 65 73 74 20 66 | 61 69 6c 65 64 20 74 6f |equest f|ailed to|
|00000fb0| 20 63 6f 6e 76 65 72 74 | 20 25 73 20 74 6f 20 25 | convert| %s to %|
|00000fc0| 73 22 20 73 65 6c 65 63 | 74 69 6f 6e 20 74 79 70 |s" selec|tion typ|
|00000fd0| 65 5d 20 34 20 28 23 24 | 20 2e 20 33 38 32 37 29 |e] 4 (#$| . 3827)|
|00000fe0| 5d 29 0a 23 40 31 30 37 | 20 49 66 20 74 68 65 72 |]).#@107| If ther|
|00000ff0| 65 20 69 73 20 61 20 73 | 65 6c 65 63 74 69 6f 6e |e is a s|election|
|00001000| 2c 20 64 65 6c 65 74 65 | 20 74 68 65 20 74 65 78 |, delete| the tex|
|00001010| 74 20 69 74 20 63 6f 76 | 65 72 73 2c 20 61 6e 64 |t it cov|ers, and|
|00001020| 20 63 6f 70 79 20 69 74 | 20 74 6f 20 0a 62 6f 74 | copy it| to .bot|
|00001030| 68 20 74 68 65 20 6b 69 | 6c 6c 20 72 69 6e 67 20 |h the ki|ll ring |
|00001040| 61 6e 64 20 74 68 65 20 | 43 6c 69 70 62 6f 61 72 |and the |Clipboar|
|00001050| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |d...(def|alias 'x|
|00001060| 2d 6b 69 6c 6c 2d 70 72 | 69 6d 61 72 79 2d 73 65 |-kill-pr|imary-se|
|00001070| 6c 65 63 74 69 6f 6e 20 | 23 5b 6e 69 6c 20 22 c0 |lection |#[nil ".|
|00001080| 20 84 09 00 c1 c2 21 88 | c3 14 0d 84 13 00 c1 c6 | .....!.|........|
|00001090| 21 88 8a c7 0d 21 71 88 | c8 c9 0d 21 ca 0d 21 5c |!....!q.|...!..!\|
|000010a0| 22 88 29 cb c3 21 87 22 | 20 5b 78 2d 73 65 6c 65 |".)..!."| [x-sele|
|000010b0| 63 74 69 6f 6e 2d 6f 77 | 6e 65 72 2d 70 20 65 72 |ction-ow|ner-p er|
|000010c0| 72 6f 72 20 22 65 6d 61 | 63 73 20 64 6f 65 73 20 |ror "ema|cs does |
|000010d0| 6e 6f 74 20 6f 77 6e 20 | 74 68 65 20 70 72 69 6d |not own |the prim|
|000010e0| 61 72 79 20 73 65 6c 65 | 63 74 69 6f 6e 22 20 6e |ary sele|ction" n|
|000010f0| 69 6c 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 20 |il last-|command |
|00001100| 70 72 69 6d 61 72 79 2d | 73 65 6c 65 63 74 69 6f |primary-|selectio|
|00001110| 6e 2d 65 78 74 65 6e 74 | 20 22 74 68 65 20 70 72 |n-extent| "the pr|
|00001120| 69 6d 61 72 79 20 73 65 | 6c 65 63 74 69 6f 6e 20 |imary se|lection |
|00001130| 69 73 20 6e 6f 74 20 61 | 6e 20 65 78 74 65 6e 74 |is not a|n extent|
|00001140| 3f 22 20 65 78 74 65 6e | 74 2d 62 75 66 66 65 72 |?" exten|t-buffer|
|00001150| 20 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 20 65 78 74 | kill-re|gion ext|
|00001160| 65 6e 74 2d 73 74 61 72 | 74 2d 70 6f 73 69 74 69 |ent-star|t-positi|
|00001170| 6f 6e 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 70 6f |on exten|t-end-po|
|00001180| 73 69 74 69 6f 6e 20 78 | 2d 64 69 73 6f 77 6e 2d |sition x|-disown-|
|00001190| 73 65 6c 65 63 74 69 6f | 6e 5d 20 34 20 28 23 24 |selectio|n] 4 (#$|
|000011a0| 20 2e 20 34 30 37 33 29 | 20 6e 69 6c 5d 29 0a 23 | . 4073)| nil]).#|
|000011b0| 40 31 30 38 20 49 66 20 | 74 68 65 72 65 20 69 73 |@108 If |there is|
|000011c0| 20 61 20 73 65 6c 65 63 | 74 69 6f 6e 2c 20 64 65 | a selec|tion, de|
|000011d0| 6c 65 74 65 20 74 68 65 | 20 74 65 78 74 20 69 74 |lete the| text it|
|000011e0| 20 63 6f 76 65 72 73 20 | 2a 77 69 74 68 6f 75 74 | covers |*without|
|000011f0| 2a 20 63 6f 70 79 69 6e | 67 20 69 74 20 74 6f 0a |* copyin|g it to.|
|00001200| 74 68 65 20 6b 69 6c 6c | 20 72 69 6e 67 20 6f 72 |the kill| ring or|
|00001210| 20 74 68 65 20 43 6c 69 | 70 62 6f 61 72 64 2e 1f | the Cli|pboard..|
|00001220| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 2d 64 65 |.(defali|as 'x-de|
|00001230| 6c 65 74 65 2d 70 72 69 | 6d 61 72 79 2d 73 65 6c |lete-pri|mary-sel|
|00001240| 65 63 74 69 6f 6e 20 23 | 5b 6e 69 6c 20 22 c0 20 |ection #|[nil ". |
|00001250| 84 09 00 c1 c2 21 88 c3 | 14 0d 84 13 00 c1 c6 21 |.....!..|.......!|
|00001260| 88 8a c7 0d 21 71 88 c8 | 0d 21 c9 0d 21 7c 88 29 |....!q..|.!..!|.)|
|00001270| ca c3 21 87 22 20 5b 78 | 2d 73 65 6c 65 63 74 69 |..!." [x|-selecti|
|00001280| 6f 6e 2d 6f 77 6e 65 72 | 2d 70 20 65 72 72 6f 72 |on-owner|-p error|
|00001290| 20 22 65 6d 61 63 73 20 | 64 6f 65 73 20 6e 6f 74 | "emacs |does not|
|000012a0| 20 6f 77 6e 20 74 68 65 | 20 70 72 69 6d 61 72 79 | own the| primary|
|000012b0| 20 73 65 6c 65 63 74 69 | 6f 6e 22 20 6e 69 6c 20 | selecti|on" nil |
|000012c0| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 20 70 72 69 |last-com|mand pri|
|000012d0| 6d 61 72 79 2d 73 65 6c | 65 63 74 69 6f 6e 2d 65 |mary-sel|ection-e|
|000012e0| 78 74 65 6e 74 20 22 74 | 68 65 20 70 72 69 6d 61 |xtent "t|he prima|
|000012f0| 72 79 20 73 65 6c 65 63 | 74 69 6f 6e 20 69 73 20 |ry selec|tion is |
|00001300| 6e 6f 74 20 61 6e 20 65 | 78 74 65 6e 74 3f 22 20 |not an e|xtent?" |
|00001310| 65 78 74 65 6e 74 2d 62 | 75 66 66 65 72 20 65 78 |extent-b|uffer ex|
|00001320| 74 65 6e 74 2d 73 74 61 | 72 74 2d 70 6f 73 69 74 |tent-sta|rt-posit|
|00001330| 69 6f 6e 20 65 78 74 65 | 6e 74 2d 65 6e 64 2d 70 |ion exte|nt-end-p|
|00001340| 6f 73 69 74 69 6f 6e 20 | 78 2d 64 69 73 6f 77 6e |osition |x-disown|
|00001350| 2d 73 65 6c 65 63 74 69 | 6f 6e 5d 20 33 20 28 23 |-selecti|on] 3 (#|
|00001360| 24 20 2e 20 34 35 33 33 | 29 20 6e 69 6c 5d 29 0a |$ . 4533|) nil]).|
|00001370| 23 40 37 35 20 49 66 20 | 74 68 65 72 65 20 69 73 |#@75 If |there is|
|00001380| 20 61 20 73 65 6c 65 63 | 74 69 6f 6e 2c 20 63 6f | a selec|tion, co|
|00001390| 70 79 20 69 74 20 74 6f | 20 62 6f 74 68 20 74 68 |py it to| both th|
|000013a0| 65 20 6b 69 6c 6c 20 72 | 69 6e 67 20 61 6e 64 20 |e kill r|ing and |
|000013b0| 74 68 65 20 43 6c 69 70 | 62 6f 61 72 64 2e 1f 0a |the Clip|board...|
|000013c0| 28 64 65 66 61 6c 69 61 | 73 20 27 78 2d 63 6f 70 |(defalia|s 'x-cop|
|000013d0| 79 2d 70 72 69 6d 61 72 | 79 2d 73 65 6c 65 63 74 |y-primar|y-select|
|000013e0| 69 6f 6e 20 23 5b 6e 69 | 6c 20 22 c0 11 c2 20 84 |ion #[ni|l "... .|
|000013f0| 0b 00 c3 c4 21 88 0d 84 | 13 00 c3 c6 21 88 8a c7 |....!...|....!...|
|00001400| 0d 21 71 88 c8 c9 0d 21 | ca 0d 21 5c 22 29 87 22 |.!q....!|..!\")."|
|00001410| 20 5b 6e 69 6c 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 | [nil la|st-comma|
|00001420| 6e 64 20 78 2d 73 65 6c | 65 63 74 69 6f 6e 2d 6f |nd x-sel|ection-o|
|00001430| 77 6e 65 72 2d 70 20 65 | 72 72 6f 72 20 22 65 6d |wner-p e|rror "em|
|00001440| 61 63 73 20 64 6f 65 73 | 20 6e 6f 74 20 6f 77 6e |acs does| not own|
|00001450| 20 74 68 65 20 70 72 69 | 6d 61 72 79 20 73 65 6c | the pri|mary sel|
|00001460| 65 63 74 69 6f 6e 22 20 | 70 72 69 6d 61 72 79 2d |ection" |primary-|
|00001470| 73 65 6c 65 63 74 69 6f | 6e 2d 65 78 74 65 6e 74 |selectio|n-extent|
|00001480| 20 22 74 68 65 20 70 72 | 69 6d 61 72 79 20 73 65 | "the pr|imary se|
|00001490| 6c 65 63 74 69 6f 6e 20 | 69 73 20 6e 6f 74 20 61 |lection |is not a|
|000014a0| 6e 20 65 78 74 65 6e 74 | 3f 22 20 65 78 74 65 6e |n extent|?" exten|
|000014b0| 74 2d 62 75 66 66 65 72 | 20 63 6f 70 79 2d 72 65 |t-buffer| copy-re|
|000014c0| 67 69 6f 6e 2d 61 73 2d | 6b 69 6c 6c 20 65 78 74 |gion-as-|kill ext|
|000014d0| 65 6e 74 2d 73 74 61 72 | 74 2d 70 6f 73 69 74 69 |ent-star|t-positi|
|000014e0| 6f 6e 20 65 78 74 65 6e | 74 2d 65 6e 64 2d 70 6f |on exten|t-end-po|
|000014f0| 73 69 74 69 6f 6e 5d 20 | 34 20 28 23 24 20 2e 20 |sition] |4 (#$ . |
|00001500| 34 39 38 31 29 20 6e 69 | 6c 5d 29 0a 23 40 36 30 |4981) ni|l]).#@60|
|00001510| 20 49 66 20 73 6f 6d 65 | 6f 6e 65 20 6f 77 6e 73 | If some|one owns|
|00001520| 20 61 20 43 6c 69 70 62 | 6f 61 72 64 20 73 65 6c | a Clipb|oard sel|
|00001530| 65 63 74 69 6f 6e 2c 20 | 69 6e 73 65 72 74 20 69 |ection, |insert i|
|00001540| 74 20 61 74 20 70 6f 69 | 6e 74 2e 1f 0a 28 64 65 |t at poi|nt...(de|
|00001550| 66 61 6c 69 61 73 20 27 | 78 2d 79 61 6e 6b 2d 63 |falias '|x-yank-c|
|00001560| 6c 69 70 62 6f 61 72 64 | 2d 73 65 6c 65 63 74 69 |lipboard|-selecti|
|00001570| 6f 6e 20 23 5b 6e 69 6c | 20 22 c0 11 c2 20 89 1b |on #[nil| "... ..|
|00001580| 84 0d 00 c4 c5 21 88 c6 | 20 88 0b 63 29 87 22 20 |.....!..| ..c)." |
|00001590| 5b 6e 69 6c 20 6c 61 73 | 74 2d 63 6f 6d 6d 61 6e |[nil las|t-comman|
|000015a0| 64 20 78 2d 67 65 74 2d | 63 6c 69 70 62 6f 61 72 |d x-get-|clipboar|
|000015b0| 64 20 63 6c 69 70 20 65 | 72 72 6f 72 20 22 74 68 |d clip e|rror "th|
|000015c0| 65 72 65 20 69 73 20 6e | 6f 20 63 6c 69 70 62 6f |ere is n|o clipbo|
|000015d0| 61 72 64 20 73 65 6c 65 | 63 74 69 6f 6e 22 20 70 |ard sele|ction" p|
|000015e0| 75 73 68 2d 6d 61 72 6b | 5d 20 33 20 28 23 24 20 |ush-mark|] 3 (#$ |
|000015f0| 2e 20 35 33 39 33 29 20 | 6e 69 6c 5d 29 0a |. 5393) |nil]). |
+--------+-------------------------+-------------------------+--------+--------+
